DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
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DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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MODULE DBGSSV ( IDENT = ‘Vv04-000") = 
BEGIN 


' 
VRORRARAAAAAAAAAAAAAAAHEAHEHAEHHAEERHTEAAHAAAAEAAAKERARERHeHeHeEKeRAeAReeees 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sor iee 
ONLY IN ACCORDANCE TH 


tt TRANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘. epokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


* 
* 
” 
* 
. 
* 
* 
* 
* 
; DE AVAIL e 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
“ 
® 
* 
* 
* 
* 
* 
ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

a 

* 

+ 


i eeeeereerereerereneeeeeeeeeeeeeeeeeeereeereeeenereeeeenaneneereneeeeeenenee 
! 
FACILITY: DEBUG 
ie 
' FUNCTIONAL DESCRIPTION: 

Contains SHOW MODULE and SHOW TYPE code. 
Version: 1.0 
eraterrs 

uthor: 
Carol Peters, 21 Sep 1976: Version 01 
Most of the code was olininated for version 4 of DEBUG, with 
only the SHOW MODULE and sHog YPE routines remaining. 
- R. Title 28 Apr 1983 


Add support for PACKED type 
". - WwW. Carrell 12-Jul-83 


Add support for DATE_TIME ty 
- W. Carrell"1 sul? YRS 
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- 


PAPE 


9 


RELLSSSLESER 


aad 4 a Hh 


D 11 
16-Sep-1984 02:38:25 VAX=11 Bliss-32 V4.0=742 Pa 
12360-1984 9337958 D1SKSVMSMASTER: CDEBUG.SRCIDBGSSV.832;1"— (2 


9 9 ! TABLE OF CONTENTS: 
: § 1 FORWARD ROUTINE 
1 ate} NUM_VAL : NOVALUE, 

054 1 DBGSREAD_ACTESS, ' PROBE read accessability. 
Bp22 1 DBGSSHOW_MODULE : NOVALUE, ' List off the module chain. 
8228 : DBGSSHOW_TYPE : NOVALUE; ! Print out the current TYPE. 
td 
0059 1 ! REQUIRE FILES: 
gee 
Doge 1 REQUIRE tee teteee re REQ’; 

196 1 LIBRARY 'LIB$:DBGGEN.L32'; 

0197 1 

0198 1 MACRO 
M0199 1 IF_SIGNAL (code) = 
™ 0200 1 F .signal_flag NEQ 0 
m 0201 1 
"0 4 1 BEGIN 
M0205 1 IF 
M0206 1 ( IF ZLENGTH GTR 1 
m™ 0205 1 THEN dbg$nout_info (code, ZREMAINING) 
m 0206 1 ELSE dbg$nout_info (code)) 
M0207 1 N 
m 0208 1 BEG! 
m 0209 1 -Signal_flag = (IF ZLENGTH GTR 1 
m0210 1 THEN 
i] sat 1 dbg$nmake_arg_vect (code, ZREMAINING) 
"0 \¢ 1 ELS 
ial 8s 1 dbg$nmake_arg_vect (code)); 
m 0214 1 RETURN sts$k_severe; 
m0215 1 D 
40 16 1 END 
M0217 1 ELSE 
M0218 1 BEGIN 
. 6 yp : IF ZLENGTH GTR 1 
- 3 1 ; SIGNAL (code, ZREMAINING) 
M 8S 4 1 SIGNAL (code) 

0 3 : END 2; 

0 § 1 MACRO 
L} 1 SET_FLAG (param_num) = 
0228 1 L 
. 8 , : signal_flag; 
m 02351 1 signal_flag = (IF actualcount () GTR param_num 
i. 3 § 1 THEN 
ia 1 actualparameter (actualcount()) 
M0234 1 ELSE 

8 5, 3 0) %; 

6 1 


2 
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; EQUATED SYMBOLS: 


EXTERNAL ROUTINE 
dbg$flushbuf: NOVALUE, 


! Initializes new gr ing line. 
dbg$free_mem_left 


' 
' Longwords remain ng in free storage. 
} Report on a given language name. 


bg$nget_radix, i Obtain radix 
g$nmake_arg_vect, 
ebgsnew! me NOVALUE, ! Outputs print buffer to output device 
no nfo 
dbgSpr int: NOVALUE, ! Formats print buffer for output 
dbg$sta_symname: NOVALUE, 
for$cnv_out_i; ! Converts integer to ascii string. 


EXTERNAL 
dbg$gw_dfitleng : WORD, 
dbg$gw_gblingth : WORD, 
dbosal got typ. 
dbg$gl_dfittyp, 
rst$start_addr: 


The Length specified in a SET 
the Length given in a SET TYP 
the type given in a SET TYPE/ 
the type specified in a SET T 
Pointer to the module chain (MC). 


YPE statement. 

OVERRIDE ASCII:LENGTH comma 
ERRIDE command. 

E statement. 


REF rst$entry; 


L 


| p11 | 
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GLOBAL ROUTINE DBGSOUT_NUM_VAL (VALUE) : NOVALUE = 


—_ 


UMEWN—O”O 


i Functional Description: 
: Write out the given value. 


Inputs: 
VALUE = the actual value we are to write out. 


Outputs: 
The (numeric) character representation \ 
of the value is encoded into the output buffer. 


Implicit Outputs: 
No 


OOOOCCCCOOOCOCoOoO 


pe DBA LS DARD 44 at 40-4 tt pe ee PN RPS Ae A 


SRVEAFP UU OOO NEE 


ne. 


Routine Value: ( 
NOVALU 


we ( 


: need to put in a leading 0 for hex output. 


MAP 
value : vector({ ZUPVAL, byte J; 


LOCAL 
use_radix; 


DONAVE WN OC OONOAUES UN “OOONOUE WOO 


format : VECTOR(4,BYTE) INITIAL(BYTE(ZASCIC '!77°)); 
use_radix = dbg$nget_radix(); 
! Now just build the required 2-character format 
! string descriptor, based upon the current 
setting of the radix. 


format(2) = (SELECTONE .use_radix OF 


SOOOCCSCOSCOOCOOSOOOSOOOOOOOOCOOOoOoOOoOSoSO 


WAOPUPIPOPOPOPOPIPOPoPofofnorfrory 


coeth binery): “2° 3 
3 dug$k_octall: se 
; cbg$k_decimal): mt 

[dbg$k_hex): x's 


Ne 
format(3) = 'L'; — 
: Check for hex oucput which begins with A-f 


ea a aa ana a tk a a td = 2 od = ot a = = 


+ tr ped NNAAAAA GCAO OSIM ES FEES LLLLE 
3 SPOS ISSN eS AP et oO Se UO CO Oe te APO Se 


SOoooooooooooeoo 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

1 

q 

1 

1 
BEGIN 

( 

! We want to look at the passed-in value 
' as a byte vector only to see if we may \ 


10 iF .use_radix EQL dbgSk_hex 

1} THEN 

18 ! Perform the check by extracting the upper BYTE of 
14 ! what we will Later output Conder ing that byte with 
315 i the max hex number we will print out ‘unadorned’, 


° a SSS 
Be Be Be Se Oe Se Se Oe Se Se Se Se Ge Se Se Se Ge Se Se Ge Se Fe Se Se Ge Fe Se Se Ge Se Se Se Gs Se Se Ge SF Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Ge Se Se Sse Se Sears 
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oa d 93: 3: £3 DISKSVMSMAS TER: (DEBUG. sac IDBGSsV. 


} and then inserting a leading 0 if the check fails. 


if .value(3) GTRA %x'9F' 
dbgSprint(UPLIT(ZASCIC '0')); 
Output the value and we're done. 
Palate cabana 


TITLE 
- IDENT 


-PSECT 
00 00 30 01 00000 P.AAA: .ASCII 
PSECT 
3F 3F 21 03 00000 FORMAT: .ASCII 


5 
5 
000000006 8 


oOo 
COOooooooooo 


FE NOM *AOVO "FOL OS 
O09 9 0-9 — 09 0 9 MO 
COP —MWi— = BN | @ PN —"$ = PNr—-amMmm 
— 
tad 
o 
=z 
v 
"ad 


DBGSSV 
\v04-000\ 


DBGSPLIT,NOWRT, SHR, PIC,0 
<1>\0\<0><0> 

DBGSOWN,NOEXE, PIC,2 
<3>\!27\ 


DBGSFLUSHBUF, DBGSFREE_MEM_LEFT 
DBGS$LANGUAGE + 05 al “RADIX 


RSCNV 
DBGS$GW_ etal 

DBGS$GL “CL TYP "DBGSGL “DFLTTYP 
RSTSSTART ADDR 
DBGSCODE,NOWRT, SHR, PIC,O 


DBGSOUT _NUM aon Save R2,R3 
DBGSPRIRT. al 


af pecs ict! gees 


#66, RI 
E_RADIX, #8 

#79, R1 
SE_RADIX, #10 

#83, R1 

USE_RADIX, #16 

4$ 

#1, RI 


#88, R1 
R1, FORMAT+2 


Pp 
g32;1" “3 


0298 


roo 


Yoes000 1$-$ep-1964 93:79:23 «| Uicbunteagteascotauc sacroscssv.as2—%%* cas 


01 OA 4c OBF C9 49 MOVE #76, FORMAT+3 : 

| 4 & o 4 cmPL USE. RADIX, #16 : 9398 

oF = soBF 07 aC of CHP VALUE +3, #159 + 0318 

00000000" FF oF A PUSHAB P.AAA 0320 
63 1 FB 69 CALLS #1, DBGSPRINT : 

| D4 AC BD 00065 68: PUSHL VALUE : 0324 

FE A fF $8 PUSHAB on $ 

63 0 FB 0006 CALLS #2, DBGSPRINT 3 

| 04 0006C RET + 0325 


3; Routine Size: 109 bytes, Routine Base: DBGSCODE + 0000 


wn 


YBUBIUIBIMMAININIUNINIVNNIIN 3 3 333 5 C3323 


OOOCCCCCOOCOOCOOCOCoCoOO 
Py re eee 4 


OOQOQGOOCOCOOCoooooooooooo°0o 


AAA AA AAAI 


POOR ANANDA ee 
WIN —O OONAVUE WO OO NOu 


SSE 


Le 


PIPPI PIPPI IPIPIPIPII III at at st a a a i a a a a a od od 


VEO OONO 
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GLOBAL ROUTINE DBGSREAD_ACCESS( ADDR, NUM_BYTES ) = 

i Functional Description: 

Check Lg we have READ access for the number 

of bytes indicated, starting at the given address. 


Note that this routine has been modified to use version 3 error 
reporting, when appropriate. 


Inputs: 
A “Byte address where desired data begins. 
NUM_BYTES “Number of bytes which we want to access. 
(meSsage_vect] = Address of a longword to contain the address of a 


message argument vector 


Implicit ineute: 

The PROBER instruction insists on uetns PSL <prev>, whether 
we want it to or not. Until/unless DEBUG is changed to be a 
multi-mode tool, we will be OK as we are now. Then, however, 
we will have to put in substantially more code here to ensure 
that current and previous mode are the same. 


Outputs: 
None. 


Implicit Outputs: 
None. 


Routine Value: 
TRUE - if access will be granted, 
If access is not possible routine signals and_no return happens, if 
a version 2 routine has called. If a version 3 has called with the 
message _vect parameter, then this routine creates a message argument 
vector and returns error. 


Side Effects: 
ne. 


BEGIN 
BUILT 
ACTUALCOUNT 
ACTUALPARAMETER, 
PROBER; 


! Set up error handling for version 3 calls 
set_flag (2); 


' Note that we must pass PROBER a zero-extended WORD 

! address for the LENGTH, and a BYTE address containing 
' the MODE field for the instruction. 

' Later, this byte field should be built by extracting 
! the proper 3 bits from the PSL. 


=32 V4.0-74 P 7 
ER-CDEBUG. SRCIDBGSSV.B3201°" (5) 


11 
S -Sep-1984 02:78: “11 Bliss-32_V4.0-7 
vOe=000 Ibo geoct age 13:53:88 DT SkSvmgMASTERsCDEdUG. SAcIDBGSsv.832z4°" «59 


IF NOT PROBER( ZREF(O), NUM_BYTES, .ADDR) 
IF SIGNAL( dbg$_noaccessr, 1, .addr ); 

RETURN TRUE; 

END; 


DONO 
ONAOUEW 


0004 
ge 8 HR 
09 18 B88 
50 ef 9A 00007 
52 6C40 D0 O000A 
9§ 11 0000 
D4 00010 1$: 
04 BC 08 ac 00 ? 0012 2$: 
4a 001 
52 DS OOOIA 
2E 135 Q001C 
04 AC DD QOOIE 
01 0D 00021 
00028228 8F DD 00023 
000000006 00 93 fe B08 9 
28 0 €8 00050 
04 AC 0D 00033 
01 0D seit 4 
00028228 8F DD 000 
000000006 00 93 FB ta 3 
62 0 00 0004 
50 04 DO 00048 
04 00048 
04 ac OD Bebe 3$: 
01 DD 0004F 
00028228 8F ODD Bonet 
000000006 00 03 FB 00057 
50 01 00 QO0SE 4$: 
04 00061 


; Routine Size: 98 bytes, Routine Base: DBGSCODE + 006D 


Output error message 


DBGSREAD_ACCESS, Save R2 7 03 

(AP), #27 ae : 9398 

(AP) RO : 

cap)ERO » SIGNAL_FLAG ; 

SIGNAL_FLAG : 

+t NUM_BYTES, @ADDR ; 0383 

$1GNAL_FLAG : 0385 

ADDR : 

#164392 : 

#3, DBGSNOUT_INFO : 

RO, 4$ g 

#164392 : 

#3, DBGSNMAKE_ARG_VECT : 

RO. (SIGNAL_FCAG) ; 

#4, RO 3 

ADDR : 

#164392 : 

#3, LIBSSIGNAL : 

#1, RO 3; 0387 
; 0388 


— 
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Miteti 1 =ep-19 4 95:78:22 DISKSVMSMASTER: LDEBUG. SAC IDBGSSV.832: 1° (6) 
; 6 36 } GLOBAL ROUTINE DBGSSHOW_MODULE: NOVALUE = 
; eg 91 1 | FUNCTION 
; 264 35 1! This routine prints out the SHOW MODULE qi splay. It first scans all 
; 265 93 1! modules in the RST Module Chain to see if they are all written in the 
8 $11 RBDULE*OEURSE: HE theh aatce’geseconssoe0 over: the RET module’ choi 
3 ‘ output. makes a second pass over the lodule Cha 
; re 0 38 : } to let out the appropriate tafernetion for each module in the chain. 
5 270 98 1 Since the Language code may not be set in the Module RST Entry for a 
; 271 0399 1! module which is not SET, the language code is always retrieved from 
: if bcos : } the Module Begin DST Record for each module. 
: 27% 0406 1 i INPUTS 
; 275 04035 1! NONE 
$ 76 04046 1! 
: 77 0405 1 ! OUTPUTS 
fi aeecee slang 
: 280 0408 1 
: $B eet BEGIN 
; $B 0411 LOCAL 
3; «6284 oes DSTPTR: REF DSTSRECORD, ' Pointer to Module Begin DST Record 
; 285 041 FIRST_TIME_FLAG, ' Flag set first time through Loop 
est taste Fiestas este 0 toes eat 
; 288 0416 MODRSTPTR: REF RSTSENTRY, i Pointer to current Module RST Entry 
3; 289 0417 2 NAMEPTR: REF VECTOR(,BYTE), ' Pointer to ASCIC language name 
3 soy edt 2 NUMBER_MODULES; ! The number of modules in the program 
: 29 0420 : 
$ 338 0421 
: 296 04 § ' Set up to do standard DEBUG 1/0. 
$ 344 04 ! 
3 96 0424 DBGSFLUSHBUF (); 
; 297 0425 
; 298 04 § 
; 299 04 ! If there is no RST Module Chain or if the only module on that chain is 
3 44 Oe $ the enenynaus Sedu’ used for global symbols, then we signal a message 
3 ' an u y- 
; 30 430 ! 
, 8 0431 IF .RSTSSTART_ADDR EQL 0 
3: 304 4 § THEN 
: 305 4 BEGIN 
: 4] 434 SIGNAL (DBG$_NOLOCALS) ; 
3 0 8 5 RETURN; 
3 oS $ : 
: 310 8 IF .RSTSSTART_ADDRCRSTSL_NXTMODPTR) EQL 0 
$ 11 439 THEN 
3 \¢ 40 BEGIN 
5 1 441 SIGNAL (DBG$_NOLOCALS); 
3 14 44 RETURN; 
; ret END; 
: 13 445 


a ae 


Se Se Se Se Se Be Be Se Be Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Fe Ge FO Se Se Se Ge Ge Ge Se Se Ge Ge Fe Se Ge Ge Se Se Se Ge Ge Se Se Ss Se Se Ge See Se Se eee 


0466 ELSE IF .LANG_CODE NEQ .MODRSTPTRCRSTSB_LANGUAGE J 
0467 THEN 
0468 BEGIN 

341 0469 LANG CHANGE = TRUE; 


EXITCOOP; 


WA 


ere 


— = .MODRSTPTRCRSTSL_NXTMODPTRI; 


a it 
GSSV 18 -Sep- 5 VAX-11 Bliss-32 V4.0-742 Page 10 
ve S840 14 ~Sep- 1984 93: i$: 2 DISKSVMSMASTER: (DEBUG. SRC IDBGSSV.832;1 79 (6) 
1 ek ! See if all modules happen to be written in the same language. To ~. oe 
1 44 ' we scan the whole RST Module chain, checking the language codes. 
0 rn ! we always pick up the sanquege code from the Module Begin DST Record. - 
1 128 ; it may not be set in the Module RST Entry for a module which is not SET. 
§ Bc3) LANG_CHANGE = FALSE; 
4 4 § MODRSTPTR = .RSTSSTART -ADDRERSTSL -NXTMODPTRI; 
5 4 FIRST TIME FLAG = 
6 454 HILE~.MODRSTPTR NEQ 0 DO 
7 0455 BEGIN 
8 Be 28 DSTPTR = ta, psrerea, 
9 Bee If .DSTPTRCDST we DST$K_MODBEG THEN DY ry Mise enerarers 
0 456 TPoRP RST TEMES ratte -DSTPTRCDSTSL_MODBEG_L 
1 0459 IF .FIRST_TIME 
¢ 0460 THE 
tz 0461 BEGIN 
Bebe FIRST_TIME_FLAG = He 
35 046 LANG_CODE = LRODRSTPTR RSTSB_LANGUAGEJ; 
6 0464 END 
37 0465 
38 
39 
40 
4 
“4 
a 
48 047 
4 og 4 ; Print the column header Lines for the SHOW MODULE display. 
51 479 DBGSPRINT(UPLIT(ZASCIC ‘module syabels ">: 
26 0480 IF .LANG_ CHANGE THEN DBGSPRINT (UPLITCRASCIC * language’ )); 
5 0481 DBGSPRINTCUPLIT(RASCIC size 
54 Bees DBGSNEWLINE(); 
55 04 DBCSNEULINE(): 
56 0484 
57 0485 
28 0486 Loop through the RST Module Chain and for each module, print the relevant 


' 
i information, Note that we bypass the ‘‘anonymous’’ module at the start of 
the chain--it does not constitute a real module to the user. 


MODRSTPTR = guste TART -ADDRERSTSL_NXTMODPTRI; 

NUMBER _MODUL 

WHILE =RODRSTPIA NEO 0 DO 
NUMBER MODULES = .NUMBER_MODULES *¢ 1; 
' Abort the SHOW MODULE output if the user entered Control-Y DEBUG to 
i ; stop the current command. 


$ABORT_ON.CONTROL_Y; 


oo 
oe 
Ns 
wes 
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g 4 11 

DBGSSV 16-Sep-1984 02:38:25 VAX-11 Bliss-32 V4.0-742 Page 11 

mitt 19-808- 1382 95:78:22 DISKSVMSMASTER: LDEBUG. SAC IDBGSSV.B32:1> (6) 

! Print out the standard information. Start by printing out the module 

name. Note that we special-case names longer than 31 characters. 

DBGSFLUSHBUF (); 

DBGSSTA_SYMNAME(.MODRSTPTR, NAMEPTR); 

\ gNAMEPTREOJ LEQ 31 
DBGSPRINT(UPLIT(ZASCIC *!31AC '), .NAMEPTR) 

ELSE 
adh 
DBGSPRINT(UPLIT(ZASCIC *!63AC°), .NAMEPTR); 


DBGSNEWL INE (); 
DBGSPRINT(UPLIT (ZASCIC "132e ")); 


' Now print out whether or not the module has be SET, i.e. whether or 
not its RST has been built. 


if .MODRSTPTRIRSTSV_MODSET] 
DBGSPRINT(UPLIT(ZASCIC "yes ")) 


LSE 
DBGSPRINT(UPLIT(ZASCIC ‘no "Dds 


! Unless all modules are written in the same Language, output the name 
' of the language in which this module was written. Final print the 
! module's estimated RST size and output the buffer. Then li 

next module in the chain. 


DSTPTR = .MODRSTPTRCRSTSL_DSTPTRI; 
MODRSTPTRERST$B_LANGUAGE = .DSTPTRCDSTSL_MODBEG_LANGUAGE); 
IF .LANG_CHANGE 


nk to the 


EWN @§OODNAUNE WN $0 ODNAVL EW OOONOUE Ww 


INA A AAI RRITIPINININUNUAD 4 4 = 3QOO OOOO 


4 
407 
409 


BEGIN 
IF .MODRSTPTRCRSTSV_SHARE_ IMAGE) 
DBGSPRINT(UPLIT(ZASCIC * Image ')) 


DBGSPRINT(UPLIT(ZASCIC ° !8AC"), 
END DBGSLANGUAGE ( .MODRSTPTRERSTS$B_LANGUAGE })); 


DBGSPRINT(UPLIT(ZASCIC *!7SL"), .MODRSTPTRCRSTSL_MODRSTSIZ)); 
DBGSNEWL INE () ; 
MODRSTPTR = .MODRSTPTRCRSTSL_NXTMODPTR); 


PEE en eens h ak al ah sh sh 4) sh sh dd dh hh dh Ah hh dh db hb Ah Ab Ab ah Ab bh ab Ab Ab Ab ab ab ab db hb hd 


tel Se ee 


ODO WE WO ODOM EWN OO 


POPIPIRIPIRINOR — ot et ot ot ot 


OONO VE WN" OOONOUEWN—O 


Print the summary information at the end of the SHOW MODULE output. This 
includes the total number of modules and the number of bytes of free 
memory left. The language name is included if all modules were written 
in the same language. 


Be Se Se Se Be Se Se Se Se Se Fe Se Se Ge Fe Se Se Se Se See Ge Ge Se Se Ge Ge Ge Fe Se Ge Ge Se Ge Se Ge Ge Ge Se SH Se Se Se Ge Ge Se Se Se Ge Se Se Ge Se Geese Se Ge 
- 
o 


SOOSOSOOSOSGOOCOCOOSCOSOSOCOOCSOOCoooqooooooQooooQooooQooQoQoooooQoooooooooo 


PPI IPIPIPIPIPI HELE BB BEE B&F FAW AANA IWAN EB EE 


Foe oY oY ot at ot ot af ot ot ot ot et eee 


PAPAPAAAMMAMINU 
PAAMMAMMNUII 


w 
— 


fb 


; INFO#250 


mr 
oo 
rr 
oo 
rer 
oo 


00 2€ 4C 
20 67 6€ 


ou 


69 
00 


oooo 
PPPS 


CoOOnNo 


21 20 


6E 69 
00 2E 


L1 


£0486 
; Referenced LOCAL symbol LANG_CODE is probably not initialized 


EWL! 
PRINT 
T wb 


N 
Pp 
ANG 


E( 
(U 
CHANGE 


) 
LITCRASCIC ‘total ')); 


32 


DBGSPRINT(UPLIT(ZASCIC "!AC *), DBGSLANGUAGE(.LANG_CODE)); 


DBGSPRINT(UPLIT(ZASCIC ‘modules: !SL.") 
DBGSPRINT(UPLIT(ZASCIC '!_! remaining size: 


DBGSNEWLINE(); 


BEG EH & 
6F 62 6D $$ $8 5 
00 00 
75 67 6€ 61 6C 20 
65 7A 69 73 20 3 
00 20 43 41 31 
00 00 43 41 33 § 
00 00 20 $f § 
20 $ 0 20 73 65 
20 20 20 20 20 6F 
65 67 61 $8 49 20 
00 43 41 38 ¢ $9 
00 00 00 4€ 53 37 
BSE HE 
RRR ED 
6D 65 72 SF 21 SF 
53 21 20 3A 65 7A 
5B 000000006 
2 099 30006 
i Sse 
3) 0000 000° 
000000006 30 


BR SNM A INOPIPOMINVONINIG 


o- Oe fF -OOM Oo | “CO00°0”U 


SOWDOSS SOLO SPOWIUNGS  VPOOCO 


ON—SOOOSOOOOOCOOOOOOrnenrnorns 
Soooooo 


Soooooo 
Coooooo 
QOwowor> 
"Om 

v 

2 

Rod 

oad 

wv 


MV & SW Oo 
SOLOOONWSE 
vw 
. 
> 
aad 
oO 


OFFC 00000 


9E 0 
E 


00 


005 


0 


«NUMBER MODULES) ; 


'SL.°), 4*DBGSFREE_MEM_LEFT()); 


io e 
>>>>>>> >>> >>> 
ANNNNNNnnnnwnnw 


ASCII 
-ASCII 
~EXTRN 
»PSECT 
-ENTRY 


DBGSPLIT,NOWRT, SHR, PIC,0 
\(module name symbols\ 


\ \<0><0><0> 
<10>\ Language\<0> 
7>\ ize\ 


</> size 
<6>\!'31AC \<0> 
<5>\!63AC\<0><0> 
<5>\!32" \<0><0> 
<8>\yes \<0><0><0> 
<8>\no \<0><0><0> 
<10>\ Image \<0> 
<6>\ _!'B8AC\<0> 
<4>\!7SL\<0><0><0> 
<6>\total \<0> 

<4>\'AC \<0><0><0> 
<13>\modules: !SL.\<0><0> 


<24>\!_!_remaining size: !SL.\<0><0> 
<0> 

DBGSGV_ CONTROL 

DBGSCODE .NOWRT, SHR, PIC,0 


DBGSNEWLIRNE, RO 
DBGSPRINT, RB 


a, S$ 
#0, DBGSFLUSHBUF 
RSTSSTART_ADDR 


RSTSSTART_ADDR, RO 
16(RO) 


N11 
16*Sep-1984 02:38:25  VAX=11 Bliss-32 v4.0-742 p 
1e-808-1982 95:79:22 D1SKSVMSMAS TER: CDEBUG. SRCIDBGSSV.B32:1" 


1 
(6 


0389 


Best 


0438 


12 
18-se 5219 4 02:38:25 VAX-11 Bliss-32 V4.0-742 Pa 13 
12-3 08-1 38 06: 38:23 DISKSVMSMASTER: DEBUG. SRCIDBGSSV.B32:1> (6) 
A 12 00039 BNEQ 2% : 
00028053 rf DD 0 23 1$ PUSHL #163923 + 0441 
68 1 FB 00041 CALLS #1, LIBSSIGNAL : 
04 00044 RET + 0440 
56 D4 0048 2$ CLRL LANG CHANGE + 0451 
0 6A D 0 47 MOVL RST START ADDR, RO + 0452 
2 10 AO DO O004A MOVL OCR ), MODRSTPTR : 
4 1 0 004 MOVL #1, FIRST_TIME_FLAG + 0453 
g DS 00051 3$ TSTL § MODRSTPTR + 0454 
13 0005 BEOQL rs : 
53 0c Ae p 005 MOVL § 12(MODRSTPTR), DSTPTR + 0456 
Bc OBF 01 =A | 9039 CMPB 3 =s«sACDSTPTR), #188 + 0457 
09 13 000 : BEQL 6 4$ : 
0002832A. 8F DD 0006 PUSHL #164650 ; 
6B 01 FB 0066 CALLS #1, LIBSSIGNAL : 
292 03 A3 90 00069 4$ MOVE §$ 3(DSTPTR), 41(MODRSTPTR) + 0458 
08 54 £9 0006¢ BLBC = FIRST_TIME_FLAG, 5$ + 0459 
54 pA 00071 CLRL FIRST TIME-FLAG + 046 
55 29 =A2 9A 00073 MOVZBL 41(MOBRSTPTR), LANG_CODE 3 046 
0D 11 00077 BRB 6$ + 0459 
29. A2 08 90 ED 00079 5$ CMPZ2V #0, #8, 41(MODRSTPTR), LANG_CODE + 0466 
05 13 0007F BEQL 6=« 6$ : 
56 01 00 90081 MOVL #1, LANG_CHANGE + 0469 
06 11 00084 BRB 7$ + 0468 
52 10 Ag DO 00086 6$: MOVL  16(MODRSTPTR), MODRSTPTR + 0473 
¢ 11 OO08A BRB 3$ + 0454 
7 DD 0008C 7s: PUSHL 7 : 0479 
ee 01 FB 0008E CALLS #1, DBGSPRINT : 
06 56 €9 00091 BLBC == LANG CHANGE, 8$ + 0480 
2c =A? «SF 00094 PUSHAB P.AA ; 
68 01 FB 00097 CALLS #1, DBGSPRINT ; 
38 «AZ «OF OOO9A 8S: PUSHAB P.AAD + 0481 
68 01 FB 0009D CALLS #1, DBGSPRINT F 
69 00 FB 000A CALLS #0, DBGSNEWLINE : 048 
69 00 FB 000A CALLS #0. DBGSNEWLINE > 048 
50 6A DO 0006 MOVL STSSTART_ADDR, RO : 0490 
52 10 Aad 00 ie MOVL (RO), MODRST 3 
54 04 OOOAD CLRL § NUMBER MODULES > 0491 
32 DS OOOAF 9$ TSTL | MODRSTP + 0492 
03 12 00081 BNEQ : 
0095 31 00083 BRW ; 
54 06 000B6 108 INCL | NUMBER_MODULES + 0494 
09 000000006 00 1 €1 0008 BBC “i bg $GV_CONTROL*1, 118 F 
00028068 8F ODD 99¢0 PUSHL #164 : 
68 1 FB 000C CALLS #1, LIBSSIGNAL : 
000000006 00 0 FB 000C9 11$: CALLS 40; DgCSFLUSHBUF : 0506 
4004 F BB 00000 PUSHR #*M<R2,SP> ; 0507 
000000006 00 2 FB 0004 CALLS #2, DBGSSTA_SYMNAME : 
1F 00 BE 91 00008 CMPB  a@NAMEPTR, #31 : 0508 
A 1A OOODF BGTRU ; 
of pb 3 PUSHL NAMEPTR : 0510 
40 A? 9F OOOE PUSHAB P.AAE ; 
68 08 FB 0 EG CALLS 6 DBGSPRINT ; 
171 E BRB 13§ ; 
of bb £B 12$:  PUSHL NAMEPTR + 0514 
48 A? 9F OOOED PUSHAB P.AAF ; 
68 02 FB 000FO CALLS #2, DBGSPRINT : 


3; Routine Size: 


08 


000000006 00 


000000006 00 


; 000000006 


393 bytes, 


12 


1h-sepe1 4 38: VAK=11 Bliss-32_V4.0-742 Page 14 
2-808 19be 96: 21 DISKSVMSMASTER: CDEBUG. SRCIDBGSSV. 832;1 1% 66) 
69 09 FB 0 F3 CALLS #0, DBGSNEWLINE : 0515 
50 A? OF rb PUSHAB A t 0516 

68 01 re OOF CALLS #1, DBGSPRINT ; 
0 28 ag f OOFC 13$:  BLBC CO{MODRSTPIRY, 14$ : 0523 
A? 9F 001 PUSHAB P,AAH + 0525 

03 11 001 RB ré$ : 
64 AZ 9F 00105 14$: PUSHAB Bp AAl + 0528 

68 01 FB 108 15$: CALLS #i, D INT : 

0¢ Ag p 108 MOVL  12(MODRSTPTR), DSTPTR : 05 
29 «OA 03 As 90 OO10F MOVE 3(DSTPTR) 41 {MODRSTPTR) + 053 

2 56 £9 00114 BLBC LANG CHA 17$ : 0538 
28 A 04 Fi O17 BBC 44, % IMODRSTPTR). 16$ + 0541 
70 A? SF 0011C PUSHAB P.AAJ + 0543 

68 01 FB OO11F CALLS i DBGSPRINT : 

\3 11 00122 BRB 17 : 
7E 29 A2 9A 00124 16$:  MOVZBL 41(MODRSTPTR), -(SP) + 0546 

or FB 001 8 CALLS #1, DBGSLANGUAGE ; 

0 DD 0012F PUSHL RO F 
7c «OA? OOF 001 1 PUSHAB P.AA > 0545 

68 02 FB 001 CALLS ce DBGSPRINT : 
20 ag DD 00137 17$:  PUSHL 32(MODRSTPTR) + 0549 

00 C7? 9F 0013A PUSHAB SAA F 

68 02 FB 0013E CALLS #2, DBGSPRINT : 
69 00 FB 00141 CALLS #0, DBCSN NEWLINE + 0550 
52 10 A2 20 00144 MOVL IgiMODRSTETR) MODRSTPTR : 0551 
FF64 31 00148 BRW > 0492 
69 00 FB 00148 18$: CALLS i, DBGSNEWL INE + 0560 
008C C7 9F O014E PUSHAB P.AAM : 0561. 

68 01 FB 00152 CALLS #i, DEGSPRINT : 
12 56 E€8 00155 BLBS §_LANG_CHANGE, 19$ + 0562 
55 DD 00158 PUSHL LANG CODE + 0564 

01 FB OO15A CALLS BeGStANGUAGE F 

50 DD 00161 PUSHL RO" : 

0094 C7? 9F 00163 PUSHAB : 

68 02 FB 00167 CALLS oo, ADBGSPRINT : 
54 DD 0016A 19$: | PUSHL NUMBER_MODULES > 0566 

009c C7 9F 0016C PUSHAB P.A F 

68 a a 90170 CALLS #2, DBGSPRINT : 
00 00 re 0017 CALLS #0, DBGSFREE MEM_LEFT : 0567 

50 02 78 OO17A ASHL #2, RO, -(SPY : 

OOAC C7? OF OOI7E PUSHAB AP : 

68 02 FB 0018¢ CALLS 3, DBGSPRINT : 
69 00 FB 0018 CALLS DBGSNEWL INE : 0568 
04 00188 RET : 0570 


Routine Base: DBGSCODE + OOCF 


D 12 


16-Sep-1984 02:38:25 VAX-11 Bliss-32 V4.0-742 Page 15 
pbs s000 ase 1 95:7 746 DISKSVMSMAS TER: (DEBUG. SRCIDBGSSV.B32: 1° (7) 
3 tte it } GLOBAL ROUTINE DBGSSHOW_TYPE(FLAG) : NOVALUE = 
: re | 378 : ; Functional Description: 
: 448 0575 1: Print out the type specified in a SET TYPELC/OVERRIDE) statement, 
; rc p28 : depending on the value of the input parameter. 
: 22! 0978 Formal Parameters: 
: re 0580 1! A flop to indicate whether the override type or the default type is to 
3 tee p28) } be printed 
: +2 o388 ' Implicit Inputs: 
: 458 0585 1! The type information stored in dbosal dflttyp, dbg$gw_dfltleng, 
3 rh B26 : dbg$gbl_gbltyp, dbg$gw_gblingfh. 
: 461 0588 i Return Value: 
; rh: 0590 1! NOVALUE 
3; 464 0591 1! 
3; 465 0236 1 !<- 
; 466 0595 1 
Be home 
: 469 £44) LENGTH, ' local storage for the appropriate 
: 470 059 TYPE; ! Length and type values. 
fe 
: 47 0600 2 ' Set up to use a new output buffer, 
> 474 0601 2 ! and encode the standard beginning of 
3 rit oe8 3 : the SHOW TYPE message into it. 
; 47? 9604 ; dbg$flushbuf (); 
: rth Rene 2 } Insert the standard prefix. 
; 481 0608 . CASE flag FROM default TO override OF 
; tba $19 poronts 3 BEGIN 
> 485 061 dbg$print (UPLIT( ZASCIC ‘type: ')); 
; 486 6618 type = :dbgé9 af lttyp: 
3; 487 0614 Length = .dbg$gw_dfitleng; 
BB i 
; 490 O61? override) : vi 
: 49 et} dbg$print (UPLIT( ZASCIC ‘type/override: ‘)); 
3; (49 0620 type = :dbgS9l _gbl typ: 
3 494 1 Length = .dbg$gw_gbiingth; 
3: 495 6 § END; 
3 £38 Z TES; 
: 498 oe 5 ! We print out a character string which indicates the type. 
; 500 6 $ CASE .type FROM -1 TO dbg$k_maximum_dtype OF 
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dbgSprint(UPLIT( ZASCIC ‘packed: ')); 


*asciz’)); 

"byte integer')); 
‘d_float’® )); 
*f_float® )); 
*g_float’ )); 
*h_float’ )); 
‘Long integer’)); 


‘octaword integer’ )); 
*quadword integer’ )); 


‘word integer')); 
‘instruction’ )); 
‘date_time’ )); 


ais i 
650 types oe) (UPLIT( ZASCIC ‘none')); 
0631 Cdsc$k -at yee.a 
§ eosari nt ( 4g ZASCIC ‘ascic’)); 
6 Cdsc$k type. t, dsc$k_dtype_pJ : 
a 
be § put keyword in buffer 
be 3 -type EQL dsc$k_dtype_t 
etd dbg$print(UPLIT( ZASCIC ‘ascii: °*)) 
0641 ELS 
Boe 
064 
gee output the value in the current radix 
0646 DBGSOUT_NUM_VAL(.LENGTH); 
0647 
0648 END; 
0649 Cdsc$k -stype. az): 
0650 gSprint (UPLIT (ZASCIC 
0651 Cdsc$k -stype. bj] : 
063¢ g$p rint (UPLIT( ZASCIC 
065 CdscS$k_dtype_ m4) : 
0654 g$p Brint (UPLIT( ZASCIC 
0655 2 Cdsc$k ~dtype fi) fl": 
0656 d g$pri nt (UPLIT( ZASCIC 
0657 Cdsc$k ~dtype-9) g] : 
0658 dbg$pr int (UPLIT( ZASCIC 
0659 Cdsc$k -dtype. h] : 
0660 dbg$pr rint (UPLIT( ZASCIC 
0661 Cdsc$k -dtype.. lj : 
Boog d gsprint (UPLIT( ZASCIC 
066 Cdsc$k ~dtype-o : 
0664 g$print (UPLIT( ZASCIC 
0665 Cdsc$k_dt bs $57 ni 
0666 nt (UPLIT( ZASCIC 
0667 Cdsc$k -dtypen et ye 
0668 d g$print (UPLIT( ZASCIC 
966° Cdsc$k me ttt zi): 
0670 dbg$prin (UPLIT( ZASCIC 
671 Cdsc$k_dt 24 nage 
1 dbg$pr - (UPLIT( ZASCIC 
7 Cinrange, outrange) : 
rh $p8G_ ERROR(! DBGSSV\DBG$SHOW_TYPE*); 
7 © 
AA ‘ : output the completed buffer. 
679 dbg$newt ined); 
80 END; ! of DBGS$SHOW. TYPE. 


-PSECT DBGSPLIT,NOWRT, 


VAX=-11 Ol isse 32 V4.0-742 
DISKSVMSMASTER: cheaue. SRCIDBGSSV.832;1 (7) 


aa 


— 


S 


> 
ryuinyrO-wnP 


F 12 
16-Sep-1984 02:38:25 VAX-11 Bliss-32 V4.0-742 P 17 
107 380-138e 93:99:22 DISKSVMSMASTER: (DEBUG. SRCIDBGSSV.832:1" (7) 


0 20 3A 70 79 76 06 CC P.AAQ: ASCII >\type: \<0> : 
65 76 ef 3} $2 8 79 «74 4 Ons P.AAR: .ASCII SFY tpe/overriée: \ : 
0 8 00 65 6 of of 4 E4 P.AAS: .ASCII ease hvcgocd : 
8 63 69 6 ; 6 ; EC P.AAT: .ASCII <5>\asc as seas 3 
A 69 69 63 7 $1 F4 P.LAAU: .ASCII <7>\asci : 
20 3A 646 65 o8 6 $1 0 3 FC P.AAV: .ASCII <B>\packed: \e eats : 
00 O A 6 § 3 61 108 P.AAW: .ASCII <5>\asciz\<0>< : 
74 6€ 69 20 65 74 79 62 6 139 P.AAX: .ASCII <12>\byte integer \<0><0><0> : 
74 61 6F 6C 66 SF 64 1 9 P.AAY: .ASCII <7>\d_float\ : 
74 61 6F 6C 66 5F 66 7 108 P.AAZ: .ASCII <7>\f=float\ ; 
74 61 6F 6C 66 SF 67 07 130 P.ABA: ASCII <7>\ =float\ : 
74 61 6F 6¢ 66 5F 68 O07 00138 P.ABB: .ASCII <7>\hA"float\ : 
74 6€ 69 20 67 6E 6F 6C o¢ 99140 P.ABC: .ASCII <12>\Tong integer\<0><0><0> : 
64 72 6F 77 i re 63 gf 1? Barer P.ABD: .ASCII <16>\octaword integer\<0><0><0> : 
64 72 6F 77 64 61 9 71 10 O01g4 P.ABE: .ASCII <16>\quadword integer\<0><0><0> : 
00 00 00 i} 65 00173 : 
74 6€ 69 20 64 72 6F 7 of pales P.ABF: .ASCII <12>\word integer\<0><0><0> : 
74 75 72 74 73 6€ 69 OB 00188 P.ABG: .ASCII wary) aeruct sous ; 
6D 69 74 SF 65 74 61 64 O09 00194 P.ABH: .ASCII <9>\date_time\<0><0> 3 
44 56 53 53 47 42 44 16 OQO1A0 P.ABI: .ASCII <20>\DBGSSV\<92>\DBGSSHOW. TYPE\ : 
45 50 59 54 SF 57 OOTAF : 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

001¢ 00000 .ENTRY DBGS$SHOW TYPE, Save R2,R3,R4 : 0571 
54 000000006 00 9€ 00002 MOVAB DBGSPRINT, 3 
53 00000000' EF 9€ 00009 V : 

000000006 00 0 FB 00010 CALLS a Sa al ; 0604 

01 00 04 AC CF 00017 CASEL AG, #0, + 0608 
0019 0004 0001C 1$: WORD ¢s-18.- : 

53 DD 00020 28: PUSHL R3 : 0612 
64 01 FB 000 é CALLS #1, DBGSPRINT : 

29 000000006 00 B0 00 MOVL DBGSGL_DFLTTYP, TYP 3 0613 

52 000000006 00 3c 000 MOVZWL “ey, DFLTLENG, (EnGTH 3 0614 

14 «11 99 BRB 4 : 9608 

08 AS OF 3$ PUSHAB ; 061 

4 1 FB 00 CALLS oi DBCS PRIN NT F 

9 900000006 p 0 MOVL §§ DBGSGL_GBLTYP, TYPE > 0620 

00000006 C 0004 MOVZWL DacsGu ZeaLLNGtn, LENGTH 3 06 1 

eC FFFFFFFF F CF 49 4$: CASEL : 7 
05A 00 A O6F 51 5$: WOR tye $,- ; 
05A O5A 9 A 59 6$-5$;- ; 
9080 C1 61 6$-5$,- : 
OSA 05A 9C $9 6$-5$,- ; 
O5A OA A 1 6$-5$,- : 
079 SA A 79 6$-5$,- ; 
OSA 05A A 81 6$- $ - : 
O5A OAB Ab 0089 13$-5$,- ; 


1° 5 


P 
SRC IDBGSSV.B32; 


Liss-32 v4.0-742 


VAX-11 8 
DISKSVMSMASTER: (DEBUG 


a 
I 


1986 93:19:66 
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seeene 
*ssesseeesepeeeeee e888 s=s=seeee ee e868 be shes 

PMM@Mmem + 2 2 2 8 8 8 8 s oH © = HMM + ss 8 8 HH 8 s Meee 

DDDDND BAA AAA AA RAN BAAN NANA AAA BAAN AAAN AA HAA 
@b 6 6 C™AAAANnnn Fn § 8 EP OUnnnn § nn Finns 
Cemte st emmmtitrttit_seisrmestemetes 
PAAUA BAAD OR. AAA ARAM AAACN AAA 
Ne Me — OOF OOOOWOVOOWVNODOVDO=- -—— OOOWDOOONOOD- Oooo 
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CO MEH EHOAMSHM Zz mae 
Ce OF OTRO Oe Oe IE or 
QOA8f FR B@waweawer-O-—-A8 wawarw 
Zattoo =F Ff wort Fut =F 
SSS2eS ESSE 4SeS2S2eS2 
QaaagVYMA@aA Ow @mawrawv@awm 
o- oe oe ee CM se 
a “Af A one N 
~o ~ oOo Oo er = 
+ pt perth dretetetery 4 ~ VE MO 
EMOOVVVVVVVvA ooo owww 
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Cooooooooodo 
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COBrwerwnr nr Nene @OOru 
OoouwcrOr On Orr Ou Cer Om 


Ne PAP OPN Ce CU 
VOODOO EMNAENMO CLO LOMOoOv am 


o o o o i 
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00028362 
OE 
64 
CF 


000000006 00 
FCC7 


H 12 
y0e 2000 enone ee TFs eed nthiSteacchtace shcapecssv.esent"* «> 


| 44 A3 QF OOOES 138 PUSHAB P.AAX 3 0652 
35 11 O00EB BRB 24$ ; 
54 A 9 E 14$ PUSHAB B AAY + 0654 
5c 6 AS «OOF O00F2 158 PUSHAB P.AAZ + 0656 
| 28 11 OOF BRB 24$ : 
64 Ad OF OOOF7 168 PUSHAB P.ABA > 0658 
26 11 OOOFA BRB 24$ : 
6C AS. OF OOOFC 178 PUSHAB P.ABB + 0660 
21 11 OOOFF BRB 24$ : 
74 A3 9F 00101 18$ PUSHAB P.ABC + 0662 
Ig 11 001 BRB 24$ : 
0084 C3 9F 00106 198 PUSHAB P.ABD F 
if 11 010A BRB 24$ : 
0098 C3 9F 0010C 208 PUSHAB P.ABE : 
19 11 0011 BRB 24$ ; 
OOAC C3 9F 00112 21$:  PUSHAB P.ABF : 
OA 11 0116 BRB 24$ : 
00BC C3 9F 00118 22$: | PUSHAB P.ABG : 
64 11 0011C RB 24$ ; 
00c8 C3 9F OO11E 23$: | PUSHAB P.ABH + 0672 
64 01 FB 0012 4$: CALLS #1, DBGSPRINT : | 
: LL NEWLIN Py 
000000006 00 00 Fe 001 > 5$ CAL S #0. DBGSNEWLINE 9679 


3; Routine Size: 301 bytes, Routine Base: DBGSCODE + 0258 


3 554 0681 1 END 
; 555 0682 0 ELUDOM 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSOWN 4 NOVEC, WRT. RD .NOEKE.NOSHR, LCL, REL, CON, PIC.ALIGN(2) 
> DBGSPLIT 437 NOVEC;NOWRT, RD. EXE, SHR. LCL. REL, CON. PIC.ALIGN(O) 
; DBGSCODE 901 NOVEC.NOWRT, RD. EXE, SHR. LCL. REL, CON, PIC.ALIGN(OD 
: Library Statistics 
Sled? aie a ee eee me Symbols -------- Pages Processing 
s File Total Loaded Percent Mapped Time 
; ~$255$0UA28 :ESySU1BIL1 .L32;1 18619 14 1009 0:01.9 
> 7$255$0 EBUG.OBJ )STRUCDEF 43231 0 0: 0.2 
: 7$255$ DUA  EDEBuG 0B) DBGLIB.L32; 154 61 97 0:01. 
3 7$255$DUA28: (DEBUG.OBJIDSTRECRDS.L32;1 


| 
| 
} 
0664 
0666 
0668 
0670 
| 
418 107 25 31 00:00.3 | 
| 


Se Ge Ge Oe Ge Ge ae 


eessy, Sie 196+ O3:38:25 YAN dT at is4=52 ye,03742, 


~$333SbUn36: LoEBUG:08, JDBGGEN-L30: 1 158 


. ae 00:00:38 


rou 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DBGSSV/0BJ=0BJ$:DBGSSV MSRC$:DBGSSV/UPDATE=(ENH$:DBGSSV) 
901 code: + 441 data bytes 


un Time 
phen y Time: 00: 
Lines/C ¢ i3$° 
Lexemes/ mu-nin: 160 
Y Used: 186 pages 
Compilation Complete 


yacssv.e3209%" (9) 


NT CORPORATION 


AH-BT13A-SE E 
ND PROPRIETARY 


DI 
VAX/VMS V4.0 CO 


009 


M 
A 


